From: John Paul Wallington <jpw@pobox.com>
Date: Sun, 25 Jul 2004 05:45:13 +0000 (+0000)
Subject: (butlast, event-modifiers, event-basic-type): Doc fixes.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21539
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ff1250119b20f4e4dce590c44ca86253c226cdb9;p=emacs.git

(butlast, event-modifiers, event-basic-type): Doc fixes.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 9dd1e415212..1e30a127f71 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -198,7 +198,7 @@ If N is bigger than the length of LIST, return LIST."
     list))
 
 (defun butlast (list &optional n)
-  "Returns a copy of LIST with the last N elements removed."
+  "Return a copy of LIST with the last N elements removed."
   (if (and n (<= n 0)) list
     (nbutlast (copy-sequence list) n)))
 
@@ -641,7 +641,7 @@ The normal global definition of the character C-x indirects to this keymap.")
 	   (get (car obj) 'event-symbol-elements))))
 
 (defun event-modifiers (event)
-  "Returns a list of symbols representing the modifier keys in event EVENT.
+  "Return a list of symbols representing the modifier keys in event EVENT.
 The elements of the list may include `meta', `control',
 `shift', `hyper', `super', `alt', `click', `double', `triple', `drag',
 and `down'."
@@ -670,7 +670,7 @@ and `down'."
 	list))))
 
 (defun event-basic-type (event)
-  "Returns the basic type of the given event (all modifiers removed).
+  "Return the basic type of the given event (all modifiers removed).
 The value is a printing character (not upper case) or a symbol."
   (if (consp event)
       (setq event (car event)))